pragma Ravenscar;

with System;
with Ada.Synchronous_Task_Control;
use Ada.Synchronous_Task_Control;
with Ada.Real_Time;
use Ada.Real_Time;
with Ada.Text_IO;
use Ada.Text_IO;
with SO;

package SporadicTask is

   task type ST(Pri : System.Priority) is
      pragma Priority(Pri);
   end ST;

   ST1 : ST(20);

end SporadicTask;


